perm filename FLAT.PR[W82,JMC] blob
sn#641717
filedate 1982-02-14 generic text, type T, neo UTF8
flat([X|Y],U,V) :- flat(X,W,V),flat(Y,U,W). flat(X,U,[X|U]).